viết chương trình nhập vào điểm trung bình nhập vào từ bàn phím
Viết chương trình nhập số N số thực từ bàn phím vào một mảng tình trung bình cộng các số vừa nhập
program TinhTBC;
uses crt;
var
N, i: integer;
Tong, TBC : real;
A: array[1..100] of real;
begin
write('Nhap so phan tu mang N = ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i:=1 to N do
begin
write('A[', i, '] = ');
readln(A[i]);
end;
Tong := 0;
for i:=1 to N do
Tong := Tong + A[i];
TBC := Tong / N;
writeln('Tong cac phan tu: ', Tong:5:2);
writeln('Trung binh cong: ', TBC:5:2);
readln;
end.
Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phím
câu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phím
Câu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím
Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộng
Câu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó
Câu 6: Viết chương trình tính diện tích hình tam giác
Câu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)
Câu 1:
Uses crt;
Var a,b:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Writeln((a+b)/(a-b));
Readln
End.
Câu 2:
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Writeln(a*a+b*b+c*c);
Readln
End.
Câu 5:
Uses crt;
Var a,b,c,d:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Readln(d);
Writeln((a+b+c+d)/4);
Readln
End.
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, in mảng đã nhập ra màn hình, tính trung bình cộng của mảng đó.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
1)viết chương trình nhập vào mảng Diem (lưu điểm kiểm tra giữa HKII của lớp) với n phần tử được nhập từ bàn phím)
in ra mảng đó và tính trung bình cộng điểm giữa HKII của lớp đó và in ra các điểm nhỏ hơn 6,5
2) viết chương trình nhập mảng Diem (lưu điểm kiểm tra giữa HKII của 1 lớp)
in ra điểm cao nhất và vị trí của giá trị đó. Sau đó tính tổng của mảng đó.
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
viết chương trình nhập vào từ bàn phím 3 số nguyên bất kì.In ra màn hình trung bình cộng của 3 số đó
uses crt;
var
a,b,c,s:integer;
begin
readln(a,b,c);
s:=(a+b+c)/3;
writeln('TBC 3 so a,b,c la: ',s);
readln
end.
Bạn ơi giúp mình với chiều nay mình thi rồi
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
viết chương trình nhập vào từ bàn phím mảng một chiều dùng để lưu trữ điểm trung bình của các môn học hãy đưa ra màng hình như sau
A nhập mảng
B in mảng
C tính điểm trung bình môn
D nếu điểm trung bình >=5 thì thồn báo được lên lớp ngược lại thì thông báo thi lại
uses crt;
var a:array[1..14]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap so mon hoc='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
write(a[i]:4:2,' ');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Diem trung binh mon la: ',t/n:4:2);
if t>=5 then writeln('Duoc len lop')
else writeln('Thi lai');
readln;
end.